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calculate_max == entry point for this module 


15-SEP-1984 23:37:19 VAX/VMS Macro v04-00 


Page 


4 3 
CALCMAX = calculate maximum retention period 15<SE ee) 337: AX/VMS Macro v04-00 P 1 
04-000 “ taSEER bbe S8itasks LENT YMS aese tT OO. | Page I, 
title calcmax - ee a ulate maximum retention period 


esbttl copyright 
“Ydent vit ee 80" 
i sneeeuenneeeeneeeeeeneneneenentsseennnncenceneeteneeeseeteneeneeseceseetes 


SE Tar cous ‘ 1978, 1980, 1982, 1984 BY 


DIGITAL PMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
3 ALL RIGHTS RESERVED. 
00 THIS SOFTWARE IS A gif ae UNDER A LICENSE AND MAY BE USED AND gor tce 
8 ONLY IN ago RDANCE WITH THE TERMS OF such bicen SE a 2 ere THE 
INCLUSION OF a ae ent gp Thad NOTICE. THIS SOFTWARE OR OTHER 
00 COPIES THEREOF NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
00 OTHER PERSON. 
00 TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORAT on NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ro V04-00 
64-SEP-1984 CLIUTL.SRCJCALCMAX.MAR; 1 
-sbttl Program description 
Facility: SET VOLUME 


Abstract: This module calculates the maximum retention period for files, 
given the minimum retention period. 


Environment: Native mode, user mode 
Author: Gerry Smith Creation Date: 01-Jan-1982 
Modified by: 

v03-001 GAS0077 Gerry_Smith 23-Apr-1982 


soetege of returning’? days, return the minimum period 
plus 7 days. 


aps db 


a ara ee ae hee eae 


CALCMAX = calculate maximum retention =e, 15-SEP-1984 23: AX/VMS v04-00 Page 
v04-000 storage definitions , 2rSEb = 984 Te 43 etnias L.S SCAL CMAX.MAR; 1 " Q) 
84 48 -sbttl storage definitions 
00 49 : 
000 9; : storage definitions 
0000 5 
00000000 § -psect set$rodata,nowrt,noexe 
0000 2 
0000 4 bin seven: 
FFFFFA7F D71BC000 0000 55 . long *XD71BC000, *XFFFFFA7F : Delta time of 7 days 


4 
CALCMAX - calculate maximum retention arted 15-SEP-1984 23:37:19 VAX/VMS Macro v04-00 Pa 4 
v04-000 calculate_max <= entry Sole for this mo 4=SEP-1984 33:77:85 LOE TUTL. SREICALCMAX MAR: 1 na (3) 


° 38 jos ~sbttl calculate_max -- entry point for this module 
$0 60 : The minimum retention period is doubled and compared against the 
0 61 ; 64-bit system time representing the minimum retention period plus 
8 $¢ ; days. Whichever value is smaller is used. 
00 64 : Inputs: 
008 65 ; 4(ap) - address of RETMIN_VALUE, the minimum . stention period, 
008 $6 : expressed in 64-bit systes time format 
44 ° : 8(ap) = address of RETMAX_VALUE, the maximum retention period. 
$008 63 : Outputs: 
444 9 3 RETMAX_VALUE is computed and returned. 
000 71 3; 
0008 ie; i-- 
0008 7 = 
OOFC 0008 74 sentry calculate_max,“m<r2,r3,r4,r5,r6,r7> 
000A 75 
000A 76 ; 
QO0A 77 ; Double the minimum retention period. Since this is in quadword format, 
000A 78 ; a Little extra work is required. First the low order longwords are added, 
000A 79 ; and then the high order longwords, with the carry bit from the addition of 
QO0A 80 ; the low order addition. 
QO0A 81; 
000A HE 
52 04 8C 7D OO0A @ movq OS Cap) re ; Put minimum period in r2/r3 
54 52 7D OO0E 84 mova r2.r ; Also put it in r4/r5 
54 26 CO 0011 85 addl2.—s r2,r4 3; Add low half 
~~ D8 0014 86 adwe r3,r5 3; Add high half including carry 
Oo17 BB 
0017 89 ; Now take the minimum value and add the seven-day value to it. 
001791” 
56 E6 AF 7D OQ017 3 movqg bin_seven,r6 ; Get a copy of binary seven days 
56 28 CO 0016 9 addl2 rg.rg 3; Add low half of minimum 
57. 5 D8 OGO1E 94 adwe r3.r7 ; Add high half 
tH 32 
09 \ a > Compare the doubled value to the minimum plus seven days. 
0021-99 * 
i. > ae 1 100 cmpl r5.r7 : Compare high longwords 
83 42 bo54 10s bneq 58 6s ine 
56 54 D1 0026 19 cmpl r4,r6 3 Compare low lLongwords 
06 14 09 : HF 5$: bgtr 10$ 3: If less, then use twice the retention neri 
08 BC 5é 7D 0028 105 mova r6,a8(ap) ; Otherwise return minimum plus seven days 
04 (11 00¢F 106 brb 20$ 
08 BC 54 7D 09 1 198 10$: movqg r4,a8(ap) ; Return the doubled minimum retention 
04 0035 110 20$: ret 
036 111 -end 


CALCMAX 
Symbol table 
BIN_SEVEN 0000000 R 1 
CALCULATE _MAX §o098008 RG 8 

pean er eww eonmrecace mee} 

: Psect synopsis ! 

fee mem mene nea e aw + 
PSECT name Allocation PSECT No. Attributes 
. 5 | 00000000 <¢ 0.) 90 ( 0.) NOPIC 
SETSRODATA 00000036 (¢ 54.) 01 ¢ 1.) NOPIC 

Quevceuesscessouesseseses 
! Performance indicators H 

Fhase Page faults CPU Time Elapsed Time 
Initialization 23 00:00:00.09 00:00:00.55 
Command processing 120 00:00:01.00 ee fe oD 
Pass 66 00:00:00.40 0:00:01.17 
Symbol table sort 0 00:00:00.00 0C:00:00.00 
Pass 2 38 00:00:00.25 00:00:00.70 
Symbol table output 1 B88: O4 00:00:00.01 
Psect synopsis output 1 00:00:00.03 00:00:00.44 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 251 00:00:01.78 00:00:07.48 


The_working set Limit was 600 pages. 

pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 2 

111 source Lines were read in Pass 1, produc ing 13 object records in Pass 2 
mac 


1417 bytes (¢ 


0 pages of virtual memory were used to define 


Macro library name 


dD 4 
- calculate maximum retention period 


Smee nen eam em ow am + 


eee wee ew mer amemcme } 


NOSHR NOEXE NORD NOWRT NOVEC 
RD NOWRT NOVEC 


non-local and 3 local symbols. 


-$255$0UA28: CCLIUTL.OBJICLIUTL.MLB;1 0 
“$255$DUA28:CSYS.OBJILIB.MLB; 1 0 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 
TOTALS (all Libraries) 0 


0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:CALCMAX/OBJ=OBJ$:CALCMAX MSRC$:CALCMAX/UPDATE=(ENH$: CALCMAX) +EXECMLS$/LIB+LIB$:CLIUTL/LIB 
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